﻿<!-- #include file="mymin.asp" -->
<%Call Head()

dim id,retext,p

id=request("id")
retext=Trim(request("retext"))
p=request("p")

if id="" or Isnumeric(id)=false then
	Call Error("<card title=""回复留言""><p>ID无效！")
end if

IF retext="" then
	Call Error("<card title=""回复留言""><p>回复内容不能为空！")
end if

dim rs
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select retext,retime from 74hu_guest where ID=" & id
rs.open rsstr,myconn,1,2
rs("retext")=retext
rs("retime")=time_now
rs.update

rs.close
set rs=nothing

%>
<card title="回复留言" ontimer="index.asp?sid=<%=sid%>&amp;p=<%=p%>">
<timer value="20"/>
<p>
回复成功，正在返回...<br/>
----------<br/>
<a href="index.asp?sid=<%=sid%>&amp;p=<%=p%>">[留言管理]</a><%Call Last%>